﻿Imports System.Data.SqlClient
Imports Laquinsa.Process

Public Class Login
#Region "Variables"
    Private _BP_User As New BP_User

#End Region
    Private Sub Aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Acceptar.Click
        If _BP_User.comprobarUsuario(Me.txt_UserName.Text, Me.txt_Password.Text) Then
            Me.DialogResult = Windows.Forms.DialogResult.OK
            Me.Close()
        Else
            MessageBox.Show("Hubo un problema con el usuario")
        End If


    End Sub

    Private Sub Cancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cancelar.Click
        Me.Close()
    End Sub
   

    
   
End Class
